home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / EDITORS / ZAPPATCH.ZIP / ZapSoftWrap < prev   
Encoding:
Text File  |  1996-10-21  |  621 b   |  24 lines
  1. BASIC -load <Zap$3rdParty>.Wagenaar.SoftWrapSr
  2. IF $&8F06<>"> d:Sources.ZapWrpMode" THEN OSCLI "FX 125":QUIT
  3. 10REM > <Zap$3rdParty>.Wagenaar.SoftWrapSr
  4. 2700str r12,selfmod_reg
  5. 2710
  6. 2810bl selfmod_check:bge mcl_done
  7. 2930bl selfmod_check:bgt mcl_restore_done
  8. 3110.selfmod_reg & 0
  9. 3290str r12,selfmod_reg
  10. 3300
  11. 3550ldmfd r13!,{r0}:bl selfmod_check
  12. 3560ldmfd r13!,{r14}
  13. 3621.selfmod_check
  14. 3622stmfd r13!,{r14}
  15. 3623ldr r14,selfmod_reg:add pc,pc,r14,lsl #3
  16. 3624dcd 0
  17. 3625cmp r0,r10:ldmfd r13!,{pc}
  18. 3626cmp r1,r10:ldmfd r13!,{pc}
  19. 3627cmp r2,r10:ldmfd r13!,{pc}
  20. 140ver$="0.12 SA"
  21. SAVE "<Zap$3rdParty>.Wagenaar.SoftWrapSr"
  22. RUN
  23. QUIT
  24.